home *** CD-ROM | disk | FTP | other *** search
- ASSI S7" "
- ASSI S0" "
- ASSI S1"CHICAGO, IL [312, 1815]"
- BEGIN:
- CLEA
- LOCA 4,0
- MESS" ╔══╡ CHICAGO BBS NUMBERS ╞══╗"
- MESS" ║ ║"
- MESS" ║ A - ║"
- MESS" ║ B - Statewide Micro ║"
- MESS" ║ C - Chicago Computer Soc.║"
- MESS" ║ D - DownLoad Express ║"
- MESS" ║ E - ║"
- MESS" ║ F - Epson ║"
- MESS" ║ G - PC Network (7N1) ║"
- MESS" ║ M - Manual Dial ║"
- MESS" ║ Q - Return to MAIN menu ║"
- MESS" ║ ║"
- MESS" ╠═══════════════════════════╣"
- MESS" ║ ENTER YOUR CHOICE: ║"
- MESS" ║ ║"
- MESS" ╚═══════════════════════════╝"
- LOCA 18,27
- GET S0
- TOP:
- FIND S0"A"
- IF FOUN
- ASSI S6" "
- ASSI S8"5881003"
- GOSU REDIALER
- ELSE
- ENDI
- FIND S0"B"
- IF FOUN
- ASSI S6"Statewide Micro"
- ASSI S8"9344515"
- GOSU REDIALER
- ELSE
- ENDI
- FIND S0"C"
- IF FOUN
- ASSI S6"Chicago Computer Society"
- ASSI S8"9420706"
- GOSU REDIALER
- ELSE
- ENDI
- FIND S0"D"
- IF FOUN
- ASSI S6"DownLoad Express"
- ASSI S8"5600559"
- GOSU REDIALER
- ELSE
- ENDI
- FIND S0"E"
- IF FOUN
- ASSI S6" "
- ASSI S8" "
- GOSU REDIALER
- ELSE
- ENDI
- FIND S0"F"
- IF FOUN
- ASSI S6"Epson"
- ASSI S8"3745772"
- GOSU REDIALER
- ELSE
- ENDI
- FIND S0"G"
- IF FOUN
- ASSI S6"PC Network"
- ASSI S8"9515620"
- GOSU REDIALER
- ELSE
- ENDI
- FIND S0"M"
- IF FOUN
- CLEA
- LOCA 5,20
- MESS"NUMBER TO DIAL:"
- LOCA 5,36
- ASSI S6"MANUAL DIAL"
- GET S8
- GOSU REDIALER
- ELSE
- ENDI
- FIND S0"Q"
- IF FOUN
- CLEA
- TRAN"!@!"
- WAIT"@"
- TRAN"D!"
- WAIT"@"
- CLEA
- LOCA 1,0
- PAUS 1
- EXEC"SELCITY.CMD"
- ELSE
- ENDI
- FIND S7"MORE"
- IF FOUN
- ASSI S7" "
- GOTO TOP
- ELSE
- ENDI
- MESS"ALL NUMBERS IN DIALING QUEUE FAILED TO ANSWER"
- MESS"RETURNING TO MAIN MENU"
- ALAR
- ASSI S0"Q"
- GOTO TOP
- REDIALER:
- CLEA
- ISFI S8
- IF NOT SUCC
- LOCA 5,35
- MESS"DIALING"
- MESS" "
- MESS S6
- MESS S8
- TRAN"I!"
- PAUS 1
- TRAN"ATZ!"
- WAIT"OK" 10
- TRAN"^E!"
- WAIT"READY"
- TRANS"D"
- TRAN S8
- TRAN"!"
- RGET S9
- RGET S9 80 40
- RGET S9 40 40
- RGET S9 40 40
- GOTMESS:
- FIND S9"BUSY"
- IF FOUN
- MESS S6
- MESS S8
- MESS"BUSY: GOING TO NEXT NUMBER"
- MESS"***************************************************************"
- ASSI S7"MORE"
- GOTO RTRN
- ENDI
- FIND S9"ANSWER TONE"
- IF FOUN
- SET PARI NONE
- SET DATA 8
- CLEA
- MESS"CONNECTED TO"
- MESS S8
- MESS S6
- MESS S1
- ALAR
- EXIT
- ELSE
- FIND S9"RINGING"
- IF FOUN
- RGET S9
- FIND S9"RINGING"
- IF FOUN
- LOG OPEN S6
- MESS"NO ANSWER -- STILL RINGING"
- MESS S8
- MESS S6
- MESS S1
- LOG CLOSE
- TRAN"^C^D^C"
- MESS"***************************************************************"
- GOTO RTRN
- ELSE
- GOTO GOTMESS
- ENDI
- ENDI
- ENDI
- ENDI
- RTRN:
- RETURN